; Music of Metro Cross (1987) (U.S. Gold)
; Ripped by Megachur 26/11/2006

	write "METROCRO.BIN"

music_date_rip	equ &1ab6
music_adr	equ &4098
first_theme	equ 1
last_theme	equ 8

	read "music_header_v1_0.asm"

	jp #0000
	di
	ld hl,#0038
	ld de,l40c2
	ld bc,#0003
	ldir
	ld a,#c3
	ld (#0038),a
	ld hl,l40d5
	ld (#0039),hl
	ei
	ret
	di
	ld hl,l40c2
	ld de,#0038
	ld bc,#0003
	ldir
	ei
	ret
.l40c2
	ret
	db #00,#00
;
.stop_music
;
	xor a
	ld (l44f1),a
	ld (l49c8),a
	ld (l44ef),a
	ld (l49c7),a
	jp l43e9
.l40d5
	di
	push af
	push bc
	push de
	push hl
	push ix
	ld a,(l44ef)
	and a
	jp nz,l4251
	ld a,(l44f1)
	and a
	jp nz,l42dc
.l40ea
	ret                     ; added by Megachur
	; pop ix                ; modified by Megachur
	pop hl
	pop hl
	pop de
	pop bc
	pop af
	ei
	jp l40c2
.l40f5 equ $ + 1
	jp #0000
	ld hl,l49d7
	ld bc,#000a
	push af
	ld (l49cc),a
.l4101
	dec a
	jp z,l4109
	add hl,bc
	jp l4101
.l4109
	ld (l49c9),hl
	ld a,#01
	ld (l49c8),a
	dec a
	ld (l49c7),a
	ld de,l49cd
	ld bc,#000a
	ldir
	pop af
	cp #04
	jp z,l4189
	cp #08
	jp z,l41d1
	ld a,(l49d5)
	ld (l49cb),a
	call l43dd
	ld a,(l49cc)
	cp #04
	jp z,l4143
	cp #06
	jp z,l4143
	cp #08
	jp nz,l4149
.l4143
	call l420d
	jp l414e
.l4149
	ld c,#0f
	call l4227
.l414e
	ld hl,l4154
	ld (l40f5),hl
.l4154
	call l4237
	ld hl,l49cb
	dec (hl)
	jp nz,l417b
	ld a,(l49d5)
	ld (hl),a
	ld bc,(l49d3)
	ld hl,(l49cd)
	add hl,bc
	ld (l49cd),hl
	ld hl,(l49cf)
	add hl,bc
	ld (l49cf),hl
	ld hl,(l49d1)
	add hl,bc
	ld (l49d1),hl
.l417b
	ld hl,l49d6
	dec (hl)
	ret nz
.l4180
	xor a
	ld (l49c8),a
	call l43e9
	ret
.l4188
	ld e,d
.l4189
	call l43dd
	ld bc,#0076
	xor a
	call l43d0
	ld bc,#0077
	ld a,#01
	call l43d0
	ld bc,#006a
	ld a,#02
	call l43d0
	call l420d
	xor a
	ld (l49d5),a
	ld a,(l4188)
	ld (l49cb),a
	ld hl,l41b6
	ld (l40f5),hl
.l41b6
	ld hl,l49cb
	dec (hl)
	ret nz
	ld a,(l4188)
	ld (l49cb),a
	call l420d
	ld a,(l49d5)
	inc a
	ld (l49d5),a
	cp #02
	ret c
	jp l4180
.l41d1
	call l43dd
	ld c,#07
	ld a,#07
	call l43fa
	ld a,(l4188)
	ld (l49cb),a
	ld c,#1f
	ld a,c
	ld (l49d5),a
	ld a,#06
	call l43fa
	call l420d
	ld hl,l41f5
	ld (l40f5),hl
.l41f5
	ld a,(l49d5)
	dec a
	jp c,l4205
	ld (l49d5),a
	ld c,a
	ld a,#06
	call l43fa
.l4205
	ld hl,l49cb
	dec (hl)
	ret nz
	jp l4180
.l420d
	ld c,#10
	call l4227
	ld a,#0b
	ld c,#c8
	call l43fa
	ld a,#0c
	ld c,#06
	call l43fa
	ld a,#0d
	ld c,#09
	jp l43fa
.l4227
	ld a,#08
.l4229
	push af
	push bc
	call l43fa
	pop bc
	pop af
	inc a
	cp #0b
	jp c,l4229
	ret
.l4237
	ld bc,(l49cd)
	xor a
	call l43d0
	ld bc,(l49cf)
	ld a,#01
	call l43d0
	ld bc,(l49d1)
	ld a,#02
	jp l43d0
;
.real_init_music
.l4251
;
	ld a,#01
	ld (l44f1),a
	ld a,(l44ef)
	ld (l44f0),a
	ld hl,l4573
	ld bc,#0006
.l4262
	dec a
	jp z,l426a
	add hl,bc
	jp l4262
.l426a
	ld ix,l44fb
	ld b,#03
	xor a
	ld (l44f8),a
.l4274
	ld (ix+#05),a
	ld (ix+#0d),a
	ld (ix+#0c),a
	ld (ix+#02),a
	ld (ix+#03),a
	push af
	ld a,(hl)
	ld e,a
	ld (ix+#0a),a
	inc hl
	ld a,(hl)
	ld d,a
	ld (ix+#0b),a
	inc hl
	push hl
	push bc
	ld a,(de)
	inc de
	ld (ix+#06),e
	ld (ix+#07),d
	call l4397
	ld hl,l44f8
	inc (hl)
	pop bc
	pop hl
	pop af
	ld de,#0010
	add ix,de
	djnz l4274
	ld (l44f2),a
	ld (l44f5),a
	ld (l44f6),a
	ld (l44f3),a
	ld (l430a),a
	ld (l44ef),a
	ld hl,l4525
	ld a,(hl)
	inc hl
	or (hl)
	ld (l44fa),a
	ld b,#38
	jp nz,l42cd
	ld b,#3c
.l42cd
	ld a,b
	ld (l44f9),a
	ld a,#05		; not modified by Megachur
	ld (l430c),a
	call l43dd
	jp l40ea
.l42dc
	ld a,(l430c)
	inc a
	ld (l430c),a
	cp #06
	jp nz,l40ea
	xor a
	ld (l430c),a
;
.play_music
;
	ld a,(l430a)
	inc a
	ld (l430a),a
	ld hl,l430b
	cp (hl)
	jp z,l4300
	call l44e6
	jp l40ea
.l4300
	call l44be
	xor a
	ld (l430a),a
	jp l40ea
.l430a
	db &00
.l430b
	db &06
.l430c
	db &00
.l430d
	ld a,(ix+#05)
	and a
	jp z,l4346
	dec (ix+#05)
	ret nz
	jp l4346
.l431b
	ld l,(ix+#06)
	ld h,(ix+#07)
	ld a,(hl)
	inc hl
	ld (ix+#06),l
	ld (ix+#07),h
	and a
	jp nz,l4343
	xor a
	ld (l44f1),a
	jp l43e9
	ld l,(ix+#0a)
	ld h,(ix+#0b)
	ld (ix+#06),l
	ld (ix+#07),h
	jp l431b
.l4343
	call l4397
.l4346
	ld l,(ix+#08)
	ld h,(ix+#09)
	ld a,(hl)
	ld c,a
	inc hl
	ld (ix+#08),l
	ld (ix+#09),h
	and a
	jp z,l431b
	bit 7,a
	jp nz,l4370
	dec c
	call l43b7
	ld a,#0f
	ld (ix+#01),a
	ld c,a
	ld a,(l44f8)
	add #08
	jp l43fa
.l4370
	cp #d0
	jp z,l4385
	cp #c0
	jp nz,l4390
	ld a,(l430b)
	sla a
	ld (l430b),a
	jp l4346
.l4385
	ld a,(l430b)
	srl a
	ld (l430b),a
	jp l4346
.l4390
	ld a,c
	and #0f
	ld (ix+#05),a
	ret
.l4397
	ld hl,l461f
	ld b,a
	ld a,(l44f8)
	cp #02
	ld a,b
	jp nz,l43a7
	ld hl,l4657
.l43a7
	dec a
	ld c,a
	ld b,#00
	add hl,bc
	add hl,bc
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (ix+#08),e
	ld (ix+#09),d
	ret
.l43b7
	ld hl,l452b
	ld b,#00
	add hl,bc
	add hl,bc
	ld c,(hl)
	inc hl
	ld b,(hl)
	ld a,(l44f8)
	cp #01
	jp nz,l43ca
	inc bc
.l43ca
	ld (ix+#02),c
	ld (ix+#03),b
.l43d0
	add a
	push bc
	push af
	call l43fa
	pop af
	pop bc
	inc a
	ld c,b
	jp l43fa
.l43dd
	call l43e9
	ld a,(l44f9)
	ld c,a
	ld a,#07
	jp l43fa
.l43e9
	ld bc,#000d
.l43ec
	ld a,b
	push bc
	call l43fa
	pop bc
	dec b
	jp p,l43ec
	ld a,#07
	ld c,#3f
.l43fa
	ld b,#f4
	out (c),a
	ld b,#f6
	in a,(c)
	or #c0
	out (c),a
	and #3f
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	ld c,a
	or #80
	out (c),a
	out (c),c
	ret
.l4418
	ld ix,l44fb
	xor a
	ld (l44f8),a
	call l443d
	ld ix,l450b
	ld a,#01
	ld (l44f8),a
	call l443d
	ld a,(l44fa)
	and a
	ret z
	ld ix,l451b
	ld a,#02
	ld (l44f8),a
.l443d
	ld a,(ix+#0d)
	inc a
	ld (ix+#0d),a
	cp (ix+#00)
	ret c
	ld (ix+#0d),#00
	ld a,(ix+#01)
	sub #01
	ret c
	ld (ix+#01),a
	ld c,a
	ld a,(l44f8)
	add #08
	jp l43fa
.l445e
	ld a,(l44f3)
	inc a
	ld (l44f3),a
	ld hl,l44f4
	cp (hl)
	ret c
	xor a
	ld (l44f3),a
	ld a,(l44f2)
	xor #01
	ld (l44f2),a
	ld bc,(l44fd)
	ld de,(l450d)
	and a
	jp z,l4487
	dec bc
	dec de
	jp l4489
.l4487
	inc bc
	inc de
.l4489
	xor a
	push de
	call l43d0
	pop bc
	ld a,#01
	jp l43d0
.l4494
	ld a,(l44fa)
	and a
	ret z
	ld a,(l44f6)
	inc a
	ld (l44f6),a
	ld hl,l44f7
	cp (hl)
	ret c
	xor a
	ld (l44f6),a
	ld bc,(l451d)
	ld a,(l44f5)
	xor #01
	ld (l44f5),a
	ld a,#02
	jp nz,l43d0
	inc bc
	jp l43d0
.l44be
	ld ix,l44fb
	xor a
	ld (l44f8),a
	call l430d
	ld ix,l450b
	ld a,#01
	ld (l44f8),a
	call l430d
	ld a,(l44fa)
	and a
	ret z
	ld ix,l451b
	ld a,#02
	ld (l44f8),a
	jp l430d
.l44e6
	call l4418
	call l445e
	jp l4494
.l44f6 equ $ + 7
.l44f5 equ $ + 6
.l44f4 equ $ + 5
.l44f3 equ $ + 4
.l44f2 equ $ + 3
.music_end equ $ + 2
.l44f1 equ $ + 2
.l44f0 equ $ + 1
.l44ef
	db #08,#00,#00,#00,#00,#04,#00,#00
.l44fd equ $ + 6
.l44fb equ $ + 4
.l44fa equ $ + 3
.l44f9 equ $ + 2
.l44f8 equ $ + 1
.l44f7
	db #01,#00,#38,#00,#03,#00,#00,#00
	db #01,#00,#00,#00,#00,#00,#00,#00
.l450d equ $ + 6
.l450b equ $ + 4
	db #00,#00,#00,#00,#03,#00,#00,#00
	db #01,#00,#00,#00,#00,#00,#00,#00
.l451d equ $ + 6
.l451b equ $ + 4
	db #00,#00,#00,#00,#03,#00,#00,#00
.l4525 equ $ + 6
	db #01,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00
.l452b
	dw #01de,#01c3,#01aa,#0192
	dw #017b,#0166,#0152,#013f
	dw #012d,#011c,#010c,#00fd
	dw #00ef,#00e1,#00d5,#00c9
	dw #00be,#00b3,#00a9,#009f
	dw #0096,#008e,#0086,#007f
	dw #0077,#0071,#006a,#0064
	dw #005f,#0059,#0054,#0050
	dw #004b,#0047,#0043,#003f
.l4573
	dw l45a3,l45ca,l45f1,l45b3
	dw l45b3,l4609,l45b5,l45dc
	dw l460b,l45b7,l45de,l460d
	dw l45b9,l45e0,l460f,l45bb
	dw l45e2,l4611,l45be,l45e5
	dw l4613,l45c5,l45ec,l461a
.l45a3
	db #01,#01,#02,#02,#03,#04,#02,#02
	db #03,#05,#06,#07,#08,#03,#09,#00
.l45b9 equ $ + 6
.l45b7 equ $ + 4
.l45b5 equ $ + 2
.l45b3
	db #0b,#00,#0c,#00,#0d,#00,#0e,#00
.l45be equ $ + 3
.l45bb
	db #10,#11,#00,#13,#14,#13,#15,#16
.l45ca equ $ + 7
.l45c5 equ $ + 2
	db #11,#00,#17,#18,#17,#19,#00,#0a
	db #0a,#02,#02,#03,#04,#02,#02,#03
	db #05,#06,#07,#08,#03,#09,#00,#0b
.l45e2 equ $ + 7
.l45e0 equ $ + 5
.l45de equ $ + 3
.l45dc equ $ + 1
	db #00,#0c,#00,#0d,#00,#0f,#00,#10
.l45e5 equ $ + 2
	db #12,#00,#13,#14,#13,#15,#16,#12
.l45f1 equ $ + 6
.l45ec equ $ + 1
	db #00,#1a,#1b,#1a,#1c,#00,#01,#02
	db #01,#02,#01,#03,#01,#03,#04,#05
	db #01,#03,#01,#03,#04,#06,#07,#01
.l4609 equ $ + 6
	db #03,#01,#03,#04,#08,#00,#09,#00
.l4611 equ $ + 6
.l460f equ $ + 4
.l460d equ $ + 2
.l460b
	db #0a,#00,#0b,#00,#0c,#00,#0d,#00
.l461a equ $ + 7
.l4613
	db #01,#03,#01,#03,#04,#0e,#00,#0f
	db #10,#0f
	db #11,#00
.l461f
	dw l4679,l4683,l4691,l46a6
	dw l46b2,l46ba,l46cd,l46f8
	dw l4713,l472d,l4737,l474f
	dw l4760,l4779,l4782,l478b
	dw l479e,l47a1,l47a4,l47b6
	dw l47b9,l47bc,l47e6,l480a
	dw l4820,l4836,l485a,l4870
.l4657
	dw l4886,l4894,l489a,l48a0
	dw l48b1,l48c3,l48d2,l4914
	dw l4935,l494d,l495d,l496e
	dw l4979,l498b,l499f,l49bd
	dw l49c1
.l4679
	db #f3,#16,#f5,#16,#f5,#16,#f5,#15
.l4683 equ $ + 2
	db #f2,#00,#f2,#1d,#f3,#19,#f2,#16
	db #f2,#19,#f2,#16,#f1,#18,#f6,#00
.l4691
	db #16,#f1,#18,#19,#f1,#1b,#1d,#f1
	db #16,#f3,#1b,#f1,#1d,#1e,#f1,#20
.l46a6 equ $ + 5
	db #22,#f1,#1b,#f3,#00,#fc,#18,#f1
	db #16,#15,#f1,#16,#18,#f1,#19,#f3
.l46b2 equ $ + 1
	db #00,#fc,#16,#f1,#1d,#f3,#22,#f5
.l46ba equ $ + 1
	db #00,#15,#f1,#16,#f2,#18,#f2,#15
	db #f3,#16,#f1,#18,#f2,#19,#f2,#16
.l46cd equ $ + 4
	db #18,#f1,#19,#00,#18,#f1,#19,#f2
	db #1b,#f2,#18,#19,#f1,#1b,#19,#f1
	db #1b,#f2,#1d,#f2,#1a,#1b,#f1,#1d
	db #1b,#f1,#1d,#f2,#1e,#f2,#1b,#f3
	db #1d,#f1,#19,#f2,#1d,#f6,#fc,#f5
.l46f8 equ $ + 7
	db #11,#f2,#11,#13,#f1,#15,#00,#f2
	db #22,#f3,#1d,#f2,#19,#f2,#1c,#f1
	db #19,#f3,#1d,#f5,#f2,#22,#f3,#1d
	db #f2,#16,#f2,#19,#f1,#16,#f3,#18
.l4713 equ $ + 2
	db #f5,#00,#fc,#16,#f1,#14,#16,#f1
	db #18,#19,#f1,#1b,#22,#f2,#1d,#f2
	db #19,#f2,#16,#f2,#11,#f1,#13,#15
.l472d equ $ + 4
	db #f1,#16,#ff,#00,#f3,#19,#f5,#19
.l4737 equ $ + 6
	db #f5,#19,#f5,#18,#f2,#00,#16,#f1
	db #18,#19,#f1,#1b,#1d,#f1,#16,#19
	db #f1,#16,#1e,#f1,#19,#1e,#f1,#1d
.l474f equ $ + 6
	db #f2,#1d,#1f,#f1,#21,#00,#1d,#f1
	db #22,#f2,#1d,#f2,#1b,#19,#f1,#16
.l4760 equ $ + 7
	db #19,#f1,#18,#f2,#16,#f5,#00,#16
	db #f1,#18,#19,#f1,#1d,#22,#f1,#1d
	db #1b,#f1,#19,#16,#f1,#18,#19,#f1
	db #1d,#1b,#f1,#19,#16,#f1,#11,#00
.l4779
	db #22,#f4,#22,#f3,#22,#f2,#21,#fb
.l4782 equ $ + 1
	db #00,#1d,#f4,#19,#f3,#1b,#f2,#1d
.l478b equ $ + 2
	db #fb,#00,#16,#f1,#18,#19,#f1,#1b
	db #1d,#f1,#22,#f2,#1d,#1c,#f1,#1b
.l479e equ $ + 5
	db #19,#f1,#16,#f2,#00,#16,#ff,#00
.l47a4 equ $ + 3
.l47a1
	db #18,#ff,#00,#16,#f1,#18,#19,#f1
	db #1b,#1d,#f1,#22,#1d,#f1,#19,#1c
.l47b6 equ $ + 5
	db #f1,#1b,#19,#f1,#00,#1d,#f6,#00
.l47bc equ $ + 3
.l47b9
	db #18,#f6,#00,#16,#f1,#15,#16,#f1
	db #18,#19,#f1,#16,#18,#f1,#19,#1b
	db #f1,#1c,#1b,#f1,#1d,#1e,#f1,#1b
	db #1d,#f1,#1e,#f2,#1d,#1b,#f1,#19
	db #16,#f1,#11,#14,#f1,#11,#14,#f1
.l47e6 equ $ + 5
	db #15,#f2,#16,#f2,#00,#20,#f2,#1e
	db #1d,#f1,#20,#f1,#1e,#f1,#1d,#f1
	db #1b,#f1,#19,#f1,#19,#f1,#1b,#f1
	db #1d,#f1,#19,#f1,#1b,#f2,#19,#1b
	db #f3,#16,#f2,#18,#19,#f1,#19,#f1
.l480a equ $ + 1
	db #00,#16,#f1,#18,#f1,#19,#f1,#1d
	db #f1,#1b,#f2,#1d,#1f,#f1,#22,#f1
.l4820 equ $ + 7
	db #20,#f1,#1b,#f1,#14,#f3,#00,#16
	db #f1,#19,#f1,#1d,#f1,#20,#f1,#1e
	db #f2,#1d,#1b,#f1,#19,#f1,#1b,#f1
.l4836 equ $ + 5
	db #1b,#f1,#19,#ff,#00,#1d,#f2,#1b
	db #19,#f1,#19,#f1,#1b,#f1,#19,#f1
	db #18,#f1,#14,#f1,#19,#f1,#1b,#f1
	db #19,#f1,#16,#f1,#14,#f2,#14,#14
	db #f3,#12,#f2,#14,#19,#f1,#19,#f1
.l485a equ $ + 1
	db #00,#19,#f1,#14,#f1,#19,#f1,#19
	db #f1,#16,#f2,#14,#16,#f1,#16,#f1
.l4870 equ $ + 7
	db #18,#f1,#14,#f1,#14,#f3,#00,#19
	db #f1,#14,#f1,#19,#f1,#19,#f1,#19
	db #f2,#19,#16,#f1,#14,#f1,#12,#f1
.l4886 equ $ + 5
	db #14,#f1,#19,#ff,#00,#0a,#f2,#0a
	db #f2,#08,#f2,#08,#f2,#06,#f2,#06
.l4894 equ $ + 3
	db #f1,#05,#00,#f2,#05,#07,#f1,#09
.l48a0 equ $ + 7
.l489a equ $ + 1
	db #00,#f2,#0f,#0d,#f1,#0c,#00,#0a
	db #f2,#0a,#f2,#0d,#f2,#0a,#f2,#0f
	db #f2,#0a,#f2,#10,#f2,#0a,#f2,#00
.l48b1
	db #f2,#11,#0f,#f2,#0d,#f2,#0c,#f2
	db #11,#f1,#11,#0f,#f2,#0d,#f2,#0c
.l48c3 equ $ + 2
	db #f2,#00,#f2,#11,#0f,#f2,#0d,#f2
	db #0c,#f2,#0a,#f1,#09,#f3,#0a,#f5
.l48d2 equ $ + 1
	db #00,#09,#f2,#05,#f2,#07,#f2,#09
	db #f2,#0a,#f2,#05,#f2,#0a,#f2,#0d
	db #f2,#0c,#f2,#08,#f2,#0a,#f2,#0c
	db #f2,#0d,#f2,#08,#f2,#0d,#f2,#11
	db #f2,#0f,#f2,#0a,#f2,#0f,#f2,#12
	db #f2,#11,#f2,#0f,#f2,#0d,#f2,#0a
	db #f2,#10,#f1,#10,#0d,#f2,#0c,#f2
	db #0a,#f2,#09,#f5,#05,#f1,#05,#07
.l4914 equ $ + 3
	db #f1,#09,#00,#f2,#11,#0f,#f2,#0d
	db #f2,#0c,#f2,#11,#f1,#0f,#0a,#f1
	db #0c,#0d,#f1,#0f,#16,#f2,#11,#f2
	db #0d,#f2,#0a,#f2,#05,#f1,#07,#09
.l4935 equ $ + 4
	db #f1,#0a,#ff,#00,#0a,#f1,#0c,#0d
	db #f1,#0f,#11,#f1,#0a,#0d,#f1,#0a
	db #12,#f1,#0d,#12,#f1,#11,#f2,#11
.l494d equ $ + 4
	db #13,#f1,#15,#00,#16,#f2,#11,#f2
	db #13,#f2,#0a,#f2,#05,#f1,#07,#09
.l495d equ $ + 4
	db #f1,#0a,#f5,#00,#0a,#f2,#05,#f2
	db #09,#f2,#05,#f2,#08,#f2,#05,#f2
.l496e equ $ + 5
	db #07,#f2,#05,#f2,#00,#16,#f2,#11
	db #f2,#0d,#f2,#0a,#f2,#05,#fb,#00
.l4979
	db #0a,#f2,#11,#f2,#0d,#f2,#0a,#f2
	db #05,#f1,#07,#09,#f1,#0a,#f2,#0a
.l498b equ $ + 2
	db #ff,#00,#f2,#11,#0f,#f1,#0d,#0a
	db #f1,#05,#08,#f1,#05,#08,#f1,#09
.l499f equ $ + 6
	db #f2,#0a,#f2,#0a,#ff,#00,#01,#f5
	db #01,#f1,#01,#f5,#01,#f1,#01,#f5
	db #01,#f1,#08,#f5,#08,#f1,#06,#f5
	db #06,#f1,#05,#f5,#05,#f1,#03,#f5
.l49bd equ $ + 4
	db #03,#f1,#08,#00,#f5,#08,#f1,#00
.l49c7 equ $ + 6
.l49c1
	db #f1,#08,#f1,#01,#ff,#00,#00
.l49cf equ $ + 7
.l49cd equ $ + 5
.l49cc equ $ + 4
.l49cb equ $ + 3
.l49c9 equ $ + 1
.l49c8
	db #00,#00,#00,#00,#00,#00,#00,#00
.l49d6 equ $ + 6
.l49d5 equ $ + 5
.l49d3 equ $ + 3
.l49d1 equ $ + 1
	db #00,#00,#00,#00,#00,#00,#00
.l49d7
	db #90,#01,#92,#01,#94,#01,#14,#00
	db #05,#32,#ef,#00,#f0,#00,#f1,#00
	db #ec,#ff,#03,#1e,#ef,#00,#f0,#00
	db #f1,#00,#ec,#ff,#08,#47,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #ef,#00,#de,#01,#bc,#03,#f6,#ff
	db #07,#32,#77,#00,#76,#00,#78,#00
	db #00,#00,#05,#50,#ef,#00,#ef,#00
	db #f0,#00,#ec,#ff,#0f,#32,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #77,#00,#77,#00,#78,#00,#fa,#ff
	db #05,#2d,#ef,#00,#ef,#00,#f1,#00
	db #ec,#ff,#08,#37,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00

;
.init_music
;
	ld (l44ef),a
	jp real_init_music

;org #6025
;ld a,(#44ef)
;and a
;jp z,l6032
;call #4251	 ; init
;jp l6039
;.l6032
;ld a,(#44f1)
;and a
;call nz,#42dc	; play

;
.game_name
	db "Metro Cross",0
.game_year
	db "1987",0
.game_publisher
	db "U.S. Gold",0
.music_author
	db "",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
